home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / clip.d < prev    next >
Text File  |  1997-10-26  |  2KB  |  44 lines
  1. DEFINITION MODULE Clip;
  2.  
  3. (*==============================================================*
  4.  * Modul:               Clipboard-Modul, nach Atari-Doku        *
  5.  * Autor:               Johannes G”ttker-Schnetmann             *
  6.  * erstellt am:         10.02.1992                              *
  7.  * letzte Žnderung am:  09.03.1992                              *
  8.  * Version:             1.0                                     *
  9.  * Interne Version:     V#0002                                  *
  10.  *==============================================================*
  11.  
  12.  *----------------------------------------------------------------------------
  13.  * Datum    Vers. Autor  Žnderung (Arbeitsbericht)
  14.  *----------------------------------------------------------------------------
  15.  * 10.02.92 0001  JGS    Erstellen
  16.  * 09.03.92 0002  JGS    ClipDirty, ScrapClear hhinzugefgt
  17.  *----------------------------------------------------------------------------
  18.  *)
  19.  
  20. PROCEDURE ScrapClear(REF f, not : ARRAY OF CHAR);
  21. (* leert das Clipboard falls Pfad leer, sonst den bergebenen Pfad *)
  22.  
  23. PROCEDURE GetScrap(VAR f : ARRAY OF CHAR):BOOLEAN;
  24. (* Liefert den aktuellen Clipboard-Ordner *)
  25.  
  26. PROCEDURE ScrapDirty(REF f : ARRAY OF CHAR):BOOLEAN;
  27. (* Ist etwas im Clipboard? *)
  28. (* d.h. sieht entweder im bergebenen Pfad oder im Clipboard nach *)
  29. (* ob ein SCRAP.TXT vorhanden ist *)
  30.  
  31. PROCEDURE ScrapWritten (type: BITSET; defExt: ARRAY OF CHAR);
  32. (* Wir haben selber etwas in's Clipboard geschrieben *)
  33.  
  34. PROCEDURE SomethingInScrap (): BOOLEAN;
  35. (* Sieht intern in einer Variablen nach. Im Zweifelsfall eher 
  36.  * ScrapDirty benutzen
  37.  *)
  38.  
  39. PROCEDURE ScrapIsDirty();
  40. (* Sagt dem Modul, daž extern irgendwas ins Clipboard geschrieben wurde 
  41.  *)
  42.  
  43. END Clip.
  44.